home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / test.spr < prev    next >
Encoding:
Text File  |  1994-07-10  |  5.5 KB  |  177 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/10/94              TEST.SPR                 13:53:19 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("test") ;
  45.     OR UPPER(WTITLE("TEST")) == "TEST.PJX" ;
  46.     OR UPPER(WTITLE("TEST")) == "TEST.SCX" ;
  47.     OR UPPER(WTITLE("TEST")) == "TEST.MNX" ;
  48.     OR UPPER(WTITLE("TEST")) == "TEST.PRG" ;
  49.     OR UPPER(WTITLE("TEST")) == "TEST.FRX" ;
  50.     OR UPPER(WTITLE("TEST")) == "TEST.QPR"
  51.     DEFINE WINDOW test ;
  52.         AT 0.000, 0.000 ;
  53.         SIZE 13.923,75.800 ;
  54.         TITLE "Model" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         CLOSE ;
  58.         MINIMIZE ;
  59.         SYSTEM
  60. ENDIF
  61.  
  62.  
  63. *       *********************************************************
  64. *       *                                                         
  65. *       *           TEST/Windows Setup Code - SECTION 2           
  66. *       *                                                         
  67. *       *********************************************************
  68. *
  69.  
  70. #REGION 1
  71. DEFINE WINDOW FOUND FROM 2,0 to 20,55 ;
  72.     FONT '',8 ;
  73.     STYLE 'N' ;
  74.     TITLE "QUERY RESULTS" ;
  75.     CLOSE ;
  76.     GROW ;
  77.     FLOAT ;
  78.  
  79. ACTIVATE WINDOW FOUND
  80.     
  81. USE TEMP
  82. browse FIELDS Name, Unique IN WINDOW FOUND ;
  83.     FONT 'MS Sans Serif', 8 STYLE 'N' ;
  84.     WHEN showgets()
  85.  
  86. HIDE WINDOW FOUND
  87.  
  88. ACTIVATE WINDOW TEST
  89.  
  90. *       *********************************************************
  91. *       *                                                         
  92. *       *               TEST/Windows Screen Layout                
  93. *       *                                                         
  94. *       *********************************************************
  95. *
  96.  
  97. #REGION 1
  98. IF WVISIBLE("test")
  99.     ACTIVATE WINDOW test SAME
  100. ELSE
  101.     ACTIVATE WINDOW test NOSHOW
  102. ENDIF
  103. @ 2.769,14.400 GET M.browse ;
  104.     PICTURE "@*HN Browse" ;
  105.     SIZE 1.769,9.000,0.667 ;
  106.     DEFAULT 1 ;
  107.     FONT "MS Sans Serif", 8 ;
  108.     STYLE "B" ;
  109.     VALID _qrl0trofj()
  110.  
  111. IF NOT WVISIBLE("test")
  112.     ACTIVATE WINDOW test
  113. ENDIF
  114.  
  115. READ CYCLE MODAL ;
  116.     WITH FOUND
  117.  
  118. RELEASE WINDOW test
  119. SELECT (m.currarea)
  120.  
  121.  
  122. #REGION 0
  123.  
  124. SET READBORDER &rborder
  125.  
  126. IF m.talkstat = "ON"
  127.     SET TALK ON
  128. ENDIF
  129. IF m.compstat = "ON"
  130.     SET COMPATIBLE ON
  131. ENDIF
  132.  
  133.  
  134. *       *********************************************************
  135. *       *                                                         
  136. *       *                TEST/Windows Cleanup Code                
  137. *       *                                                         
  138. *       *********************************************************
  139. *
  140.  
  141. #REGION 1
  142.  
  143. *
  144. * SHOWGETS - Invoked from BROWSE WHEN clause, refresh gets on the screen.
  145. *
  146.  
  147.  
  148. *       *********************************************************
  149. *       *                                                         
  150. *       *    TEST/Windows Supporting Procedures and Functions     
  151. *       *                                                         
  152. *       *********************************************************
  153. *
  154.  
  155. #REGION 1
  156. FUNCTION showgets
  157. SHOW GETS
  158. RETURN
  159.  
  160. *       *********************************************************
  161. *       *                                                         
  162. *       * _QRL0TROFJ           M.browse VALID                     
  163. *       *                                                         
  164. *       * Function Origin:                                        
  165. *       *                                                         
  166. *       * From Platform:       Windows                            
  167. *       * From Screen:         TEST,     Record Number:    2      
  168. *       * Variable:            M.browse                           
  169. *       * Called By:           VALID Clause                       
  170. *       * Object Type:         Push Button                        
  171. *       * Snippet Number:      1                                  
  172. *       *                                                         
  173. *       *********************************************************
  174. *
  175. FUNCTION _qrl0trofj     &&  M.browse VALID
  176. #REGION 1
  177. SHOW WINDOW FOUND